home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / chooser.lha / Chooser / Install < prev    next >
Encoding:
Text File  |  1995-01-12  |  1.9 KB  |  85 lines
  1.  
  2. (procedure install13libs
  3.   (
  4.     (copylib (prompt "Copying reqtools.library")
  5.          (help @copylib-help)
  6.          (source "libs13/reqtools.library")
  7.          (dest "LIBS:")
  8.          (optional oknodelete askuser)
  9.     )
  10.     (copylib (prompt "Copying gadtools.library")
  11.          (help @copylib-help)
  12.          (source "libs13/gadtools.library")
  13.          (dest "LIBS:")
  14.          (optional oknodelete askuser)
  15.     )
  16.   )
  17. )
  18.  
  19. (procedure install2libs
  20.   (
  21.     (copylib (prompt "Copying reqtools.library")
  22.          (help @copylib-help)
  23.          (source "libs/reqtools.library")
  24.          (dest "LIBS:")
  25.          (optional oknodelete askuser)
  26.     )
  27.   )
  28. )
  29.  
  30. (procedure installdocs
  31.   (
  32.     (set result (askchoice (prompt "Which document do you want to install?")
  33.                (help @askchoice-help)
  34.                (choices "Text file" "AmigaGuide file")
  35.                (default 1)))
  36.     (if (= result 0)
  37.       (copylib    (prompt "Copying text version of documentation")
  38.         (help @copylib-help)
  39.         (source "Chooser.doc")
  40.         (dest docs-dest)
  41.         (infos)
  42.         (optional nofail askuser)
  43.       )
  44.       (copylib    (prompt "Copying AmigaGuide version of documentation")
  45.         (help @copylib-help)
  46.         (source "Chooser.guide")
  47.         (dest docs-dest)
  48.         (infos)
  49.         (optional nofail askuser)
  50.       )
  51.     )
  52.   )
  53. )
  54.  
  55. (set kickver (/ (getversion "exec.library" (resident)) 65536))
  56.  
  57. (if (>= kickver 36)
  58.   (install2libs)
  59.   (install13libs)
  60. )
  61.  
  62. (set @default-dest (askdir (prompt "Choose directory to put Chooser in")
  63.                (help @askdir-help)
  64.                (default "SYS:Utilities")
  65. ))
  66.  
  67. (copylib (prompt "Copying Chooser program")
  68.      (help @copylib-help)
  69.      (source "Chooser")
  70.      (dest @default-dest)
  71.      (infos)
  72.      (optional oknodelete askuser)
  73. )
  74.  
  75. (if (askbool (prompt "Do you want to install Choosers documentation?")
  76.          (help @askbool-help)
  77.          (default 1))
  78.   (
  79.     (set docs-dest (askdir (prompt "Where do you want to put Choosers documentation?")
  80.                (help @askdir-help)
  81.                (default @default-dest)))
  82.     (installdocs)
  83.   )
  84. )
  85.